home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Cream of the Crop 26
/
Cream of the Crop 26.iso
/
editor
/
par.zip
/
EXAMPL06.POM
< prev
next >
Wrap
Text File
|
1997-06-27
|
891b
|
34 lines
;
; CHOP up fixed-length record (i.e. no carriage returns or linefeeds)
;
CHOP 1-123
;
; Extract the fields
;
SET First = $FLINE[ 1 12]
SET LastName = $FLINE[ 13 25]
SET Street = $FLINE[ 26 46]
SET Phone = $FLINE[ 47 59]
SET Job = $FLINE[ 60 84]
SET Comments = $FLINE[ 85 119]
SET Rating = $FLINE[120 121]
;
; Remove surrounding spaces
;
TRIM First "B" " "
TRIM LastName "B" " "
TRIM Street "B" " "
TRIM Phone "B" " "
TRIM Job "B" " "
TRIM Comments "B" " "
TRIM Rating "B" " "
;
; Ignore any garbage bytes at end of file
;
IF Rating = "" THEN Okay = "N" ELSE "Y"
;
; Build output line
;
OUT Okay = "Y" |"{First}","{LastName}","{Street}","{Phone}",
OUTEND Okay = "Y" |"{Job}","{Comments}",{Rating}